home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / twm-listing 11 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  656b  |  32 lines
  1. 10 REM FINPUT#-DEMO
  2. 20 :
  3. 30 SYS 32168
  4. 35 DIM D$(144)
  5. 37 POKE 40909,34
  6. 40 :
  7. 50 (null)6,4,18,19,37,1,0,"DATEINAME" :(null)6,2,128 :(null)6
  8. 60 (null) 3,"BITTE DISKETTE"
  9. 70 (null) 5,"EINLEGEN !"
  10. 80 (null) 8,10," TASTE " :(null) 2
  11. 90 GET W$ :IF W$="" THEN 90
  12. 100 :
  13. 110 REM DIRECTORY NACH D$(1-N) EINLESEN
  14. 120 REM  D$(0) ENTHAELT DISKNAME
  15. 130 OPEN 1,8,0,"$"
  16. 140 N=0 :GET#1,X$,X$
  17. 150 GET#1,X$,X$,X$,X$ :(null)1,X$
  18. 160 IF LEFT$(X$,6)="BLOCKS" THEN CLOSE1 :N=N-1 :GOTO 200
  19. 170 (null)1,X$ :D$(N)=X$ :(null)1,X$
  20. 180 N=N+1 :GOTO 150
  21. 190 :
  22. 200 REM AUSWERTUNG
  23. 210 IF N>0 THEN 240
  24. 220 PRINT CHR$(147)
  25. 230 (null) 5,15," LEER " :GOTO 80
  26. 240 D=1 :(null) D$(1),D$(N),0,1,10,1,D
  27. 250 :
  28. 260 (null)
  29. 270 IF D=0 THEN (null) 10,1,"AUSGESTIEGEN." :END
  30. 280 (null) 10,1,"SIE HABEN '"+D$(D)+"' GEWAEHLT !"
  31. 290 END
  32.